home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CRESC / Lengths / lengths-to-rests < prev   
Lisp/Scheme  |  1996-12-31  |  610b  |  19 lines
  1. lengths-to-rests lengths-pattern
  2.  
  3. This can be a valuable companion function to symbol-interleave, where two patterns are mixed sequentially.
  4.  
  5. (setq len1 '(48 96 24 12 12 12 12 24 48)) 
  6. (setq len1r (lengths-to-rests len1))
  7. --> (-48 -96 -24 -12 -12 -12 -12 -24 -48)
  8.  
  9. (setq rhy1 (symbol-interleave len1 len1r))
  10. --> (48 -48 96 -96 24 -24 12 -12 12 -12 12 -12 12 -12 24 -24 48 -48)            
  11.  
  12. (setq len1 '(1/16 1/8 1/16)) 
  13. (setq len1r (lengths-to-rests len1))
  14. --> (-1/16 -1/8 -1/16)
  15.  
  16. It can also be used to provide sections of rests inside a long zone-length.
  17.  
  18. (setq zone (append len1 len1r len1 len1 len1 len1))
  19.